﻿Imports System
Imports System.Collections
Imports System.Collections.ObjectModel

Namespace System.Workflow.Runtime
    Public Class WorkflowQueueInfo
        ' Methods
        Friend Sub New(ByVal queueName As IComparable, ByVal items As ICollection, ByVal subscribedActivityNames As ReadOnlyCollection([Of] String))
            Me._queueName = queueName
            Me._items = items
            Me._subscribedActivityNames = subscribedActivityNames
        End Sub


        ' Properties
        Public ReadOnly Property Items As ICollection
            Get
                Return Me._items
            End Get
        End Property

        Public ReadOnly Property QueueName As IComparable
            Get
                Return Me._queueName
            End Get
        End Property

        Public ReadOnly Property SubscribedActivityNames As ReadOnlyCollection([Of] String)
            Get
                Return Me._subscribedActivityNames
            End Get
        End Property


        ' Fields
        Private _items As ICollection
        Private _queueName As IComparable
        Private _subscribedActivityNames As ReadOnlyCollection([Of] String)
    End Class
End Namespace

